home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1517.ZIP / DB4LESS3.ZIP / CUSTOMER.FMT < prev    next >
Text File  |  1988-11-17  |  2KB  |  69 lines

  1. ********************************************************************************
  2. *-- Name....: CUSTOMER.FMT
  3. *-- Date....: 11-17-88
  4. *-- Version.: dBASE IV, Format 1.0
  5. *-- Notes...: Format files use "" as delimiters!
  6. ********************************************************************************
  7.  
  8. *-- Format file initialization code --------------------------------------------
  9.  
  10. IF SET("TALK")="ON"
  11.    SET TALK OFF
  12.    lc_talk="ON"
  13. ELSE
  14.    lc_talk="OFF"
  15. ENDIF
  16.  
  17. *-- This form was created in COLOR mode
  18. SET DISPLAY TO COLOR
  19.  
  20. lc_status=SET("STATUS")
  21. *-- SET STATUS was ON when you went into the Forms Designer.
  22. IF lc_status = "OFF"
  23.    SET STATUS ON
  24. ENDIF
  25.  
  26. *-- Window for memo field remarks.
  27. DEFINE WINDOW Wndow1 FROM 1,15 TO 19,64 
  28.  
  29. *-- @ SAY GETS Processing. -----------------------------------------------------
  30.  
  31. *--  Format Page: 1
  32.  
  33. @ 2,27 SAY "CUSTOMER INFORMATION FORM" 
  34. @ 4,6 TO 16,72 
  35. @ 6,11 SAY "Code" 
  36. @ 6,21 GET custcode PICTURE "@! XXXXXXXXXX" 
  37. @ 7,11 SAY "Name" 
  38. @ 7,21 GET custname PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" 
  39. @ 8,11 SAY "Address" 
  40. @ 8,21 GET address PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" 
  41. @ 9,11 SAY "City" 
  42. @ 9,21 GET city PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" 
  43. @ 9,48 SAY "STATE" 
  44. @ 9,54 GET state PICTURE "@! XX" 
  45. @ 9,58 SAY "ZIP" 
  46. @ 9,63 GET zip PICTURE "XXXXX" 
  47. @ 10,11 SAY "Phone" 
  48. @ 10,21 GET phone PICTURE "(999) 999-9999" 
  49. @ 12,14 SAY "Contact" 
  50. @ 12,24 GET contact PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
  51. @ 14,14 SAY "Remarks" 
  52. @ 14,24 GET remarks WINDOW Wndow1 
  53.  
  54. *-- Format file exit code -----------------------------------------------------
  55.  
  56. *-- SET STATUS was ON when you went into the Forms Designer.
  57. IF lc_status = "OFF"  && Entered form with status off
  58.    SET STATUS OFF     && Turn STATUS "OFF" on the way out
  59. ENDIF
  60.  
  61. RELEASE WINDOWS Wndow1
  62.  
  63. IF lc_talk="ON"
  64.    SET TALK ON
  65. ENDIF
  66.  
  67. RELEASE lc_talk,lc_fields,lc_status
  68. *-- EOP: CUSTOMER.FMT
  69.